home *** CD-ROM | disk | FTP | other *** search
/ Magnum One / Magnum One (Mid-American Digital) (Disc Manufacturing).iso / d12 / jazlib.arc / GETCS.ASM < prev    next >
Assembly Source File  |  1988-12-18  |  1KB  |  27 lines
  1. Comment *
  2. ┌────────────────────────────────────────────────────────────────────────────┐
  3. │getcs.asm                                                                   │
  4. │Return the Code segment value                                               │
  5. │                                                                            │
  6. │Usage:                                                                      │
  7. │  unsigned int cs;                                                          │
  8. │                                                                            │
  9. │  cs = getcs();                                                             │
  10. │                                                                            │
  11. │ (C) JazSoft Software by Jack A. Zucker (301) 794-5950                      │
  12. └────────────────────────────────────────────────────────────────────────────┘
  13. *
  14. title    get cs value
  15. name    getcs
  16.  
  17.     assume cs:_text
  18. _text    segment public byte 'code'
  19.     public _getcs
  20.  
  21. _getcs        proc near
  22.     mov ax,cs
  23.     ret
  24. _getcs    endp
  25. _text    ends
  26.     end
  27.